CDL Z80 MACRO III Assembler C:12012- 
da/iTio/80 hhsinm: ss 

.MAIN. - Output to the RS232 ports 
1—1 RS232 



414X 
on the DSC 



F-'ase 1 



::/4 



0001 
000 1 



6 
7 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
A 1 



ve r 5 1 o n = 
revision: 



. pabs 
. phex 



Pros ram: RS232 

This prosram checks tor port input? reads the 
character? and echoes it to all three RS232 ports in- 
cluding the console. This character continues to be 
echoed to all three ports until another character is 
input. Then? that character becomes the echoed char- 
acter. The program will continue indetinitel v. 

The prosram is self-starting- It defaults to 
the charsLcter •■'A-' (ascii 41 h) if no character has 
been entered on the command line. 

Ports 0? 2? and 3 are set to RS232j 9600 baud 
ports. This is necessary because certain versions 
of DSC 3/4 BIOS initialize the ports differently. 

D. Stein 10/10/SO 



0100 

0100 31 0231 

0103 C3 0110 

0000 
0001 
0080 
OOOD 
OOOA 
1 06 00 



24 
25 
26 
27 



•~'0 
30 

31 



. 1 o c 

Ixi 

•jmp 

WBOOT 
WBaddr = 
coml ine = 

If 

echoCHRs . byte 



lOOh 

sp? stack 
START 

00 h 

01 h 
80 h 
ODh 
OAh 
00 h 



beginning of TPA 

start with a fresh stack 



BIOS entry point 

address of BIOS entry point 

c mma n d line 1 e n s t h 

ascii c a r r i ag e r e t u r n 

asci i 1 ine feed 

byte that is echoed to ports 



0028 
002A 
0029 
002B 
0020 
0022 
0021 
0023 
0002 
0000 



0030 
0031 
0032 



0107 IS 

0108 144C 
OlOA 03C1 
OlOC 05EA 
OlOE 1104 



34 
35 
36 
37 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 

50 
51 
52 
53 
54 
55 
56 



5 Port addresses for F*:S232 output ? status. 



portO 

pOstat 

p o r 1 1 

plstat 

port2 

p25tat 

ports 

pSstat 

T>::RDY 

RxRDY 



2Ah 
29h 
2Bh 

20 h 
22 h 

21 h 



y 



port (console) address 
port 2 status address 
port 1 address 

status address 

address 

status address 

address 

status address 



port 
port 
port 
port 

pCip t 

Tx status code 
Rx status code 



; Counter-timer-chip channel addresses (for baud rates) 
CTCO = 30h ; CTC channel ( for port ) 
CTCl = 31h ? CTC channel 1 ( for port 1 ) 
CTC2 = 32h ? CTC channel 2 (for ports 27 3 ) 

? String to initialize an SIO port to an RS232 port. 

RS232S .byte ISh ? channel reset 

.byte 14h?01001100h ; #16 clock? 2 stop bits 
.byte 3? 11000001b ? receive enable 
.byte 5? 1 1101010b ; transmit enable 
-byte llh? 00000100b 5 no interrupts 



CDL ZSO MACRO III Assembler C12012- 414X 

d a / iTi ■:• / 80 h h s inm : s s 

.MAIM. - Output to the RS232 ports on the DSC 3/4 

1 —2 RS232 



Pass 2 



0009 

0110 

0110 21 OlFF 
0113 CD OlDB 



0116 


21 0080 


0119 


7E 


01 lA 


FE02 


one 


380C 


01 IE 


23 


01 IF 


7E 


0120 


FE20 


0122 


28FA 


0124 


32 0106 


0127 


C3 0132 



012A 

012A 3E41 

012C 32 0106 

012F C3 0132 



013; 






-RS232 



; length of the strins 



59 START: 

60 ; Print the initial messase 
Ixi H^LOGiTiss ; print version inss 
call prtmss 



61 

63 

64 ; Read the command line for the chr to echo 



65 1 X i 

66 mov 

67 c p i 

68 J re 

69 . . 1 : inx 

70 mov 

71 cpi 

72 J r 2 

73 sta 

74 J mp 
75 

76 def aul ts 

77 mv i 

78 sta 

79 Jmp 
SO 

81 ; Set ports CU !■> 2 

82 SETPORTS! 



H7 com! ine 

AiM ; hou) Ions is com line? 

2 ,; Just 1 chr or less'? 

default ; Yes. use chr ■■"A-"' 

H 

AjM ; F<ead the com line chr 



, . 1 ■ 

echoCHR 

SETPORTS 



skip ascii blanks 



A 7 •■'A-" " Etet default chr in A 
echoCHR ; save as chr to echo 
SETPORTS 



to RS2327 9600 baud ports. 



0132 


3E45 


0134 


D331 


0136 


3E0D 


0138 


D331 


013A 


21 0107 


01 3D 


01 092B 


0140 


EDB3 


0142 


3E45 


0144 


D332 


0146 


3E0D 


0148 


0332 


014A 


21 0107 


014D 


01 0922 


0150 


EDB3 



84 ; Port 

86 ; 

87 ; 



89 5 

90 ; 

91 ; 

92 ; Port 1 

93 

94 

95 

96 

97 

98 

99 
100 ; Port 2 
101 
102 
103 
104 
105 
106 
107 



0152 21 0107 
0155 01 0923 



109 
110 



mvi 


out 


mv i 


u t 


Ixi 


Ixi 


u t i r 


mvi 


u t 


mvi 


u t 


Ixi 


Ixi 


u t i r 


mvi 


out 


mvi 


u t 


Ixi 


Ixi 


outir 


I ( .sa 


Ixi 


Ixi 



A,45h 

CTCO 

A7 13 ? 13 = 2Mh2/(16-Hbaudrate) 

CTCO ; set port to 9600 baud 

H,RS232 

B» RS232$<S+p0stat 

5 make port an RS232 

A,45h 

CTCl 

A, 13 

CTCl 

H,RS232 

B 1 RS232$<S+ p 1 s t a t 

; make p«;<rt 1 an RS232 

A,45h 

CTC2 

A, 13 ? 13 = 2Mhs/( 16*baudrate) 

CTC2 ; set port 2 to 9600 baud 

H , RS232 

B 7 RS232$<8+ p2 sta t 

; make port 2 an rs232 port 



; 13 = 2Mhz/<16-«-baudrate) 
; set port 1 to 9600 baud 



108 ; Port 3 (same counter--t imer-chip channel as port 2 ) 



H7RS232 

B, RS232$<8+p3stat 



CDL ZSO MACRO III Assembler- C12012- 414X 

d a / m •:■ / SO h h : mm : s s 

.MAIN„ - Output to the RS232 ports on the DSC 3/4 

1-3 RS232 



Pa.s< 



0158 


EDB3 


111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


015A 




123 
124 
125 


015A 


3A 0106 


126 


015D 


CD 01F6 


127 


0160 


CD 01E6 


128 


0163 


OF 


129 


0164 


300C 


130 


0166 


CD OlEE 


131 


0169 


E67F 


132 


016B 


FE20 


133 


016D 


3803 


134 


016F 


32 0106 


135 
136 
137 


0172 


DB2B 


138 


0174 


E604 


139 


0176 


2805 


140 


0178 


3 A 0106 


141 


017B 


D329 


142 


017D 


DB2B 


143 


017F 


E601 


144 


0181 


230B 


145 


0183 


DB29 


146 


0185 


E67F 


147 


0187 


FE20 


148 


0189 


3803 


149 


018B 


32 0106 


150 
151 
152 
153 


018E 


DB22 


154 


0190 


E604 


155 


0192 


2805 


156 


0194 


3A 0106 


157 


0197 


D320 


158 


0199 


DB22 


159 


019B, 


E601 


160 


019D 


280B 


161 


019F 


DB20 


162 


OlAl 


E67F 


163 


01 A3 


FE20 


164 



o u t i p 



; make port 3 an rs232 port 



; BEGINNIiMG OF OUTPUT LOOP 



; The echo charaizter is now loaded into •"'echoCHF?'' . 

; The chr will be output? and a check for a new 

? character to be echoed will be made. If a char- 

; acter is ready? and is greater than or e^^ual to 

; an ascii blank <20h)7 it will become the new echo 

; character. This is performed on all 4 ports. 

PORTOUTs 

; Check port status. Send echoCHR. 

; Receive new echoCHR if Recv is console chr is readv 
Ida echoCHR 

CONOUT ; output echoCHR to console 
constat ; console chr readv? 



cal 1 
cal 1 
rrc 
•jrnc 
cal 1 
ani 
cpi 
J r c 
sta 



CON IN 
7Fh 



; read the chr 



..3 ; isnore all non-printins chrs 

echoCHR ; save chr as new echoCHR 
Check port 1 status. Send echoCHR if Trans readv. 
Receive new echoCHR if Recv is readv, 
,3s in plstat 

ani KTxRDY ; is chr readv to be output? 

1 da echoCHR 

out portl ; output the echo chr 
,45 in plstat 

ani KRxRDY 5 is chr readv to be read? 

■irz . . 5 

in portl 5 input the echo chr 

ani 7Fh 5 mask high order bit 

cpi •■■ •■■ ; ascii printing chr? 

•jrc ..5 ; ignore non printing chrs 

sta echoCHR ? save chr as new echo chr 

Check port 2 status. Send echoCHR if Trans readv. 
Receive new echoCHR if Recv is readv. 
,5! in p2stat 

ani KTxRDY ; is chr readv to be output? 

J r 2 . . 6 

Ida echoCHR 

out port2 7 output the echo chr 
, 6s in p25tat 

ani KRxRDY 5 is chr readv to be read? 

■irz . . 7 

in Port2 ? input the echo chr 

ani 7Fh ; mask hish order bit 

cpi ■■■ •■■ ; ascii printing chr? 



CDL ZSO MACRO III Assembler CI 20 12- 414X Pase 4 

da/iTio/80 hhsmrrisss 

.MAIN. - Output to the RS232 ports on the DSC 3/4 

1--4 RS232 

01A5 3803 165 ore ..7 ? i snore non print ins chrs 

01A7 32 0106 166 sta echoCHR ; save chr as new echo chr 

167 

168 ; Check port 3 status. Send echoCHR if Trans ready. 

16"? ; Receive new echoCHR if Recv is readv. 

OlAA DB23 170 ..7: in pSstat 

01 AC '£604 171 ani KTxRDY,; is chr readv to be output? 

OlAE 2805 172 Jrs ..8 

01 BO 3 A 0106 173 Ida echoCHR 

01B3 D321 174 out PortS 5 output the. echo chr 

1 B5 DB23 175 . » 3 s in p3 s t a t 

01B7 E601 176 ani KRxRDY ; is chr readv to be read? 

01B9 280B 177 .Jrz loopend 

OIBB DB21 178 in portS 5 input the echo chr 

OIBD E67F 179 ani 7Fh ? mask high order bit 

OIBF FE20 180 cpi '' •■' ; ascii printing chr? 

OlCl 3803 181 " J re 1 oopend ; ignore non printing, chrs 

01C3 32 0106 182 sta echoCHR ? save chr as new echo chr 

1 83 

184 5 Loop back to PORTOUT. .. forever , 
01C6 185 loopend: 

01C6 CD OICC 186 call delav ; wait a i/lOth of a second 

01C9 C3 015A 187 Jinp PORTOUT 

188 

189 ; 

190 ; END OF OUTPUT LOOP 

191 ;- 

192 

193 ; 

1 94 ; S u b r o u tines del a v 

195 7 Ress in: none 

196 ; Regs outs none 

197 ? Destroved: 

198 ; Provide a 1/10 of a second delav before returning. 
OICC 199 delav! 

OICC 21 1000 200 Ixi H, lOOOh ? start HL at lOOOh 

OICF 2B 201 ..1: dcx H 5 decrement HL 

01 DO 7D 202 mov A^L 

OlDl FEOO 203 CPi 

01D3 20FA 204 Jrnz ..1 

01D5 7C 205 mov A,H 

01D6 FEOO 206 CPi 

01D8 20F5 207 Jrnz ..1 

01 DA C9 208 ret 



CDL Z80 MACRO III 
da/iTio/80 hh : mm: ss 
.MAIiMn - Output to 
1-5 RS232 



Assembler C12012- 414X 
the RS232 ports on the DSC 3/4 



F'as'e 5 



OlDB 
OlDB 
01 DC 
OIDD 
OlDE 
OlDF 
01E2 
01E3 
01E4 



7E 
B7 
CS 
E5 
CD 
El 



01F6 



18F5 



01E6 






01E6 


11 


0003 


01E9 


2A 


0001 


01 EC 


19 




01 ED 


E9 





OlEE 






OlEE 


11 


0006 


OlFl 


2A 


0001 


01F4 


19 




01F5 


E9 





01F6 






01F6 


4F 




01F7 


11 


0009 


OlFA 


2 A 


0001 


OlFD 


19 




OlFE 


E9 





211 


M 

T 










212 


N 
J 


UTILITY I/O 


SUBROUTINES 


213 


m ^ 
1 














214 










215 


m _ 














216 


3 


Subro 


utine: 


prtmss 


217 


7 


Ress 


in: 


HL=addr of string 


218 


7 


Ress 


out: 


none 


219 


7 


Destr 


ore d : 


A7C7HL 


220 


It 
7 


Print 


a message to the console 


221 


pr-tmsg: 






222 






mov 


A7M 


223 






ora 


A 


224 






rz 


7 return on nul 1 c 


225 






push 


H 


226 






cal 1 


CONOUT 


227 






POP 


H 


228 






inx 


H ; set next chr add 


229 






•jmpr 


pr tmsg 


230 










231 


? 














232 


u 

7 


Subroutine! 


constat 


233 


n 
t 


Re3s 


in: 


none 


234 


1 

7 


Ress 


out: 


A 


235 


n 
7 


Destroved: 


and and/or al 1 registers 


236 


7 


Check 


the console status. Set LSB ol- A il- 


237 


c< 


on 5 tat 


M 
H 




238 






Ixi 


D7 03h 


239 






Ihld 


WBaddr 


240 






dad 


D 


241 






PC hi 




242 


7 • 














243 




Subro 


utine: 


CON IN 


244 




Re 9 5 


in: 


none 


245 




Ress 


u t : 


A=chr read 


246 




Destr 


oved: 


C 


247 




Read 


a character from the console. 


248 


Ci 


ON IN: 






249 






Ixi 


D,06h 


250 






Ihld 


WBaddr 


251 






dad 


D 


252 






PC hi 




o <=■".•■;■ 










jL ■-'■!' 








254 




Subroutines 


CONOUT 


255 




Ress 


in:. 


A=chr to print 


256 




Regs 


out: 


none 


257 




Destr 


oved: 


C 


258 




Print 


a character to the console- 


259 


Ci 


ONOUT: 






260 






mov 


C,A 


261 






Ixi 


D,09h 


262 






Ihld 


WBaddr 


263 






dad 


D 


264 






PC hi 





:hr ready 



CDL Z80 MACRO III Assembler CI 20 12- 414X 
da/mo /SO h h : mm s ss 

nMAINn - OutPLit tc the RS232 ports on the 
1-6 RS232 



Pasie 6 



DSC 3/4 









265 


H , , ,, , 
t 













266 


m 


Messages 








267 








OlFF 


0D0A52533 


2 


268 


LOG 


imsg: 


.ascii 


020B 


312E 




269 






. bYte 


020D 


3031 




270 






. bvte 


020F 


0D0A2000 




271 
272 






. ascis 


0213 






273 






,blkb 


0231 






274 


stack: 










275 






.end 



CcraCIf 3''RS232 VER '' 
version+'O;" ■, •' . " 

r e V i. s i o n / 1 + •' •% r e V i s i o n fe 1 + •"■ ' 
i:crKH=3-^ ••■ 



5U 



CDL Z80 MACRO III Assembler C12012~ 414X 

d a / m Cl / S h h : m m : s s 

.MAIM. - Output to the RS232 ports en the DSC 3/4 

1-7 +++-I.+ SviTihol Table +-1--1--M- 



Pasie 7 



COMLIN 


0080 


CR 


OOOD 


DEFAUL 


01 2A 


LOGMS13 


OlFF 


P2STAT 


0022 


P0RT2 


0020 


REVISI 


0001 


SETPOR 


0132 


VERS 10 


0001 



CON IN 

CTCO 

DELAY 

LOOPEN 

P3STAT 

PORTS 

IDC; '7 00 

STACK 
WBADDR 



OlEE 
0030 
OICC 
01C6 
0023 
0021 
0107 
023 1 
000 1 



CONOUT 


01F6 


CTCl 


0031 


ECHOCH 


0106 


POSTAT 


002A 


PORTO 


0028 


PORTOU 


015A 


RS232* 


0009 


START 


OHO 


WBOOT 


0000 



CONSTA 


01E6 


CTC2 


0032 


LF 


000 A 


Pi STAT 


002B 


PORTl 


0029 


PRTMSG 


OlDB 


RXRDY 


0000 


TXRDY 


0002 


.BLNK.- 


0000 



.DATA. 0000" 



0:: 



PROG. 0000 •■■ 



